home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / inc-vers.elc < prev    next >
Encoding:
Text File  |  1992-02-04  |  649 b   |  21 lines
  1.  
  2. (insert-file-contents "../lisp/version.el")
  3.  
  4. (re-search-forward "emacs-version \"[^\"]*[0-9]+\"")
  5.  
  6. (forward-char -1)
  7.  
  8. (save-excursion (save-restriction (narrow-to-region (point) (progn (skip-chars-backward "0-9") (point))) (goto-char (point-min)) (let ((version (read (current-buffer)))) (delete-region (point-min) (point-max)) (prin1 (1+ version) (current-buffer)))))
  9.  
  10. (skip-chars-backward "^\"")
  11.  
  12. (message "New Emacs version will be %s" (buffer-substring (point) (progn (skip-chars-forward "^\"") (point))))
  13.  
  14. (write-region (point-min) (point-max) "../lisp/version.el" nil (quote nomsg))
  15.  
  16. (erase-buffer)
  17.  
  18. (set-buffer-modified-p nil)
  19.  
  20. (kill-emacs)
  21.